home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27a.d64 / startadr.>>6000 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  505b  |  29 lines
  1. 100 REM
  2. 110 REM  PROGRAMM ZUM AENDERN DER
  3. 120 REM  STARTADRESSE EINES FILES
  4. 130 REM  AUF  $6000 (KOALAPAINTER
  5. 140 REM  BILDER START)
  6. 150 REM
  7. 160 REM
  8. 170 INPUT "FILENAME ";A$
  9. 180 :
  10. 190 OPEN 2,8,15
  11. 200 OPEN 3,8,3,"#":GOSUB340
  12. 210 OPEN 1,8,0,A$ :GOSUB340
  13. 220 :
  14. 230 PRINT#2,"M-R"+CHR$(24)+CHR$(0)+CHR$(2)
  15. 240 GET#2,TR$,SE$
  16. 250 PRINT#2,"U1:"3;0;ASC(TR$+CHR$(0));ASC(SE$+CHR$(0)):GOSUB340
  17. 260 PRINT#2,"B-P";3;2
  18. 270 PRINT#3,CHR$(0);CHR$(96);
  19. 280 PRINT#2,"U2:"3;0;ASC(TR$+CHR$(0));ASC(SE$+CHR$(0)):GOSUB340
  20. 290 CLOSE1
  21. 300 CLOSE2
  22. 310 CLOSE3
  23. 320 END
  24. 330 :
  25. 340 INPUT#2,F,F$,FT,FS:IF F=0 THEN RETURN
  26. 350 PRINT "DISK-FEHLER"
  27. 360 PRINTF;F$;FT;FS
  28. 370 GOTO 290
  29.